1: | prime(0) | → false | |
2: | prime(s(0)) | → false | |
3: | prime(s(s(x))) | → prime1(s(s(x)),s(x)) | |
4: | prime1(x,0) | → false | |
5: | prime1(x,s(0)) | → true | |
6: | prime1(x,s(s(y))) | → and(not(divp(s(s(y)),x)),prime1(x,s(y))) | |
7: | divp(x,y) | → rem(x,y) = 0 | |
8: | PRIME(s(s(x))) | → PRIME1(s(s(x)),s(x)) | |
9: | PRIME1(x,s(s(y))) | → DIVP(s(s(y)),x) | |
10: | PRIME1(x,s(s(y))) | → PRIME1(x,s(y)) | |